home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / char.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-01-22  |  640 b   |  17 lines
  1. 100  '**** CHAR.BAS ****
  2. 102  '** Oct. 1, 1985 PC Mag. **
  3. 110  CLEAR:SCREEN 1:COLOR 7,2:CLS:KEY OFF
  4. 120  INPUT "Enter x-size (from 1 to 40): ",XS
  5. 130  INPUT "Enter y-size (from 1 to 24): ",YS
  6. 140  IF XS>40 OR YS>24 OR XS<1 OR YS<1 THEN 110
  7. 150  CLS:LOCATE 25,13:PRINT"Type a message";
  8. 160  DIM P(320,8):LOCATE 1,1:LINE INPUT M$
  9. 170  P=320/XS:IF LEN(M$)*8<P THEN P=LEN(M$)*8
  10. 180  FOR X=0 TO P:FOR Y=0 TO 7
  11. 190  P(X,Y)=POINT(X,Y):PRESET(X,Y):NEXT:NEXT
  12. 200  CLS:FOR X=0 TO P:FOR Y=0 TO 7
  13. 210  IF P(X,Y)=0 THEN C=0 ELSE C=3
  14. 220  LINE(X*XS,Y*YS)-(X*XS+XS,Y*YS+YS),C,BF
  15. 230  NEXT:NEXT:LOCATE 25,15:PRINT"<Esc> to end";
  16. 240  K$=INPUT$(1):IF K$=CHR$(27) THEN CLS:WIDTH 80:END ELSE 110
  17.